{	Problem: http://codeforces.ru/problemset/problem/99/A
	 Verdict: Accepted
}
uses
        SysUtils, Math;

var
        ls,kk:longint;
        s,int:string;

begin
readln(S);
kk:=pos('.',s);
int:=copy(s,1,kk-1);
delete(s,1,kk);
ls:=length(int);
if int[ls]='9' then write('GOTO Vasilisa.') else begin
        if s[1]<'5' then write(int) else begin
                write(copy(int,1,ls-1));
                write(chr(ord(int[ls])+1));
        end;
end;
end.